Change font in Win32::GUI AddListView items

--===============0305550752==
Content-Language: en-US
Content-Type: multipart/alternative;
boundary="_000_DF6A68E27C9C734592018E2317E95836070A52045Bnts 532kiikimb_"

--_000_DF6A68E27C9C734592018E2317E95836070A52045Bnts532kiiki mb_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

Is it possible to change the font (bold, color,etc) when adding items to a =
Win32::GUI AddListView object?

I've tried passing a font object to no avail

my $fb =3D new Win32::GUI::Font(-name =3D> "Courier New", -height =3D> 10, =
-bold =3D> 0);
$lv->InsertItem(-font =3D> $fb, -item =3D> $i, -text =3D> [" $s", "", "", =
"", "", "", ""]);

There are the TextColor and TextBKColor methods, but they appear to be glob=
al to the whole ListView object.

Ken Cornetet 812.482.8499
To err is human - to moo, bovine.


--_000_DF6A68E27C9C734592018E2317E95836070A52045Bnts532kiiki mb_
Content-Type: text/html; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

osoft-com:office:office" xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" xmlns=3D"http:=
//www.w3.org/TR/REC-html40"> =3D"text/html; charset=3Dus-ascii"> oft Word 14 (filtered medium)"> nk=3Dpurple>

Re: Change font in Win32::GUI AddListView items

--===============0385655881==
Content-Transfer-Encoding: 7bit
Content-Type: multipart/alternative;
boundary=Apple-Mail-1-1071443038


--Apple-Mail-1-1071443038
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
charset=utf-8

Is there owner-draw set somewhere? If so, then yes


Am 14.10.2011 um 23:03 schrieb Ken Cornetet :

> Is it possible to change the font (bold, color,etc) when adding items to a=
Win32::GUI AddListView object?
>=20
> =20
>=20
> Iâ€=99ve tried passing a font object to no avail
>=20
> =20
>=20
> my $fb =3D new Win32::GUI::Font(-name =3D> "Courier New", -height =3D> 10,=
-bold =3D> 0);
>=20
> $lv->InsertItem(-font =3D> $fb, -item =3D> $i, -text =3D> [" $s", "", "",=
"", "", "", ""]);
>=20
> =20
>=20
> There are the TextColor and TextBKColor methods, but they appear to be glo=
bal to the whole ListView object.
>=20
> =20
>=20
> Ken Cornetet 812.482.8499
>=20
> To err is human - to moo, bovine.
>=20
> =20
>=20
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

--Apple-Mail-1-1071443038
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
charset=utf-8

dSection1">

Is it possible to change the font (bold, c=
olor,etc) when adding items to a Win32::GUI AddListView object? p>

 

Iâ€=
=99ve tried passing a font object to no avail

ormal"> 

y:"Courier New"">my $fb =3D new Win32::GUI::Font(-name =3D> "Co=
urier New", -height =3D> 10, -bold =3D> 0);

ass=3D"MsoNormal">$lv-&g=
t;InsertItem(-font =3D> $fb, -item =3D> $i, -text =3D> ["  $s"=
, "", "", "", "", "", ""]);

> 

There are the TextColor and TextBKCo=
lor methods, but they appear to be global to the whole ListView object.=

 

>Ken Cornetet 812.482.8499

To err is hu=
man - to moo, bovine.

 =

__________=
_____________________________________
ActivePerl mailing lis=
t
Act=
ivePerl@listserv.ActiveState.com
To unsubscribe: =3D"http://listserv.ActiveState.com/mailman/mysubs"> rv.ActiveState.com/mailman/mysubs">http://listserv.ActiveSta te.com/mailman/m=
ysubs

RE: Change font in Win32::GUI AddListView items

--===============0552330564==
Content-Language: en-US
Content-Type: multipart/alternative;
boundary="_000_DF6A68E27C9C734592018E2317E95836070C580742nts 532kiikimb_"

--_000_DF6A68E27C9C734592018E2317E95836070C580742nts532kiiki mb_
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

To follow up on my own post, I've found several enticing code snippets (lik=
e this one: http://perl-win32-gui.sourceforge.net/cgi-bin/wiki.cgi?Chang e_L=
istview_Item_Color), but still no joy.

I've seen lots of variations on hooking CUSTOMDRAW that end up at this line=
:
substr($lParam, 48, 8, $clrText);

The problem with this is that Win32::GUI (?) throws up an error box that sa=
ys "substr outside of string at xenmong.pl line 172.

If I put in a print length($lParam) it shows that $lParam is 8 bytes, which=
is what I'd expect after finding that lParam is a LONG via google.

I'd love to try what is apparently the "new" method of handling CustomDraw =
discussed here http://www.mail-archive.com/perl-win32-gui-cvscommit@lists.s =
ourceforge.net/msg00053.html, but I can't find Win32::GUI::CustomDraw anywh=
ere.

What am I missing?

Ken Cornetet 812.482.8499
To err is human - to moo, bovine.

From: activeperl-bounces@listserv.ActiveState.com [mailto:activeperl-bounce=
s@listserv.ActiveState.com] On Behalf Of Ken Cornetet
Sent: Friday, October 14, 2011 5:03 PM
To: activeperl@listserv.activestate.com
Subject: Change font in Win32::GUI AddListView items

Is it possible to change the font (bold, color,etc) when adding items to a =
Win32::GUI AddListView object?

I've tried passing a font object to no avail

my $fb =3D new Win32::GUI::Font(-name =3D> "Courier New", -height =3D> 10, =
-bold =3D> 0);
$lv->InsertItem(-font =3D> $fb, -item =3D> $i, -text =3D> [" $s", "", "", =
"", "", "", ""]);

There are the TextColor and TextBKColor methods, but they appear to be glob=
al to the whole ListView object.

Ken Cornetet 812.482.8499
To err is human - to moo, bovine.


--_000_DF6A68E27C9C734592018E2317E95836070C580742nts532kiiki mb_
Content-Type: text/html; charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

osoft-com:office:office" xmlns:w=3D"urn:schemas-microsoft-com:office:word" =
xmlns:m=3D"http://schemas.microsoft.com/office/2004/12/omml" xmlns=3D"http:=
//www.w3.org/TR/REC-html40"> =3D"text/html; charset=3Dus-ascii"> oft Word 14 (filtered medium)"> nk=3Dpurple>

Re: Change font in Win32::GUI AddListView items

--===============0297615002==
Content-Transfer-Encoding: 7bit
Content-Type: multipart/alternative;
boundary=Apple-Mail-2--869130679


--Apple-Mail-2--869130679
Content-Transfer-Encoding: quoted-printable
Content-Type: text/plain;
charset=utf-8

Lparam and wparam are the parameters of the send message win32 API Call and m=
ostly Pointers to a Structure. I guess you Need to Look up the msdn info and=
implement custom draw yourself.=20

Am 17.10.2011 um 16:00 schrieb Ken Cornetet :

> To follow up on my own post, Iâ€=99ve found several enticing code snip=
pets (like this one: http://perl-win32-gui.sourceforge.net/cgi-bin/wiki.cgi?=
Change_Listview_Item_Color), but still no joy.
>=20
> =20
>=20
> Iâ€=99ve seen lots of variations on hooking CUSTOMDRAW that end up at t=
his line:
>=20
> substr($lParam, 48, 8, $clrText);
>=20
> =20
>=20
> The problem with this is that Win32::GUI (?) throws up an error box that s=
ays â€=9Csubstr outside of string at xenmong.pl line 172.
>=20
> =20
>=20
> If I put in a print length($lParam) it shows that $lParam is 8 bytes, whic=
h is what Iâ€=99d expect after finding that lParam is a LONG via google.=

>=20
> =20
>=20
> Iâ€=99d love to try what is apparently the â€=9Cnewâ€=9D metho=
d of handling CustomDraw discussed here http://www.mail-archive.com/perl-win=
32-gui-cvscommit@lists.sourceforge.net/msg00053.html, but I canâ€=99t fi=
nd Win32::GUI::CustomDraw anywhere.
>=20
> =20
>=20
> What am I missing?
>=20
> =20
>=20
> Ken Cornetet 812.482.8499
>=20
> To err is human - to moo, bovine.
>=20
> =20
>=20
> From: activeperl-bounces@listserv.ActiveState.com [mailto:activeperl-bounc=
es@listserv.ActiveState.com] On Behalf Of Ken Cornetet
> Sent: Friday, October 14, 2011 5:03 PM
> To: activeperl@listserv.activestate.com
> Subject: Change font in Win32::GUI AddListView items
>=20
> =20
>=20
> Is it possible to change the font (bold, color,etc) when adding items to a=
Win32::GUI AddListView object?
>=20
> =20
>=20
> Iâ€=99ve tried passing a font object to no avail
>=20
> =20
>=20
> my $fb =3D new Win32::GUI::Font(-name =3D> "Courier New", -height =3D> 10,=
-bold =3D> 0);
>=20
> $lv->InsertItem(-font =3D> $fb, -item =3D> $i, -text =3D> [" $s", "", "",=
"", "", "", ""]);
>=20
> =20
>=20
> There are the TextColor and TextBKColor methods, but they appear to be glo=
bal to the whole ListView object.
>=20
> =20
>=20
> Ken Cornetet 812.482.8499
>=20
> To err is human - to moo, bovine.
>=20
> =20
>=20
> _______________________________________________
> ActivePerl mailing list
> ActivePerl@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

--Apple-Mail-2--869130679
Content-Transfer-Encoding: quoted-printable
Content-Type: text/html;
charset=utf-8

"MsoNormal">To follow up on my own post, Iâ€=99ve found several enticing=
code snippets (like this one: net/cgi-bin/wiki.cgi?Change_Listview_Item_Color"> 2-gui.sourceforge.net/cgi-bin/wiki.cgi?Change_Listview_Item_ Color">http://pe=
rl-win32-gui.sourceforge.net/cgi-bin/wiki.cgi?Change_Listvie w_Item_Color=
), but still no joy.

  o:p>

Iâ€=99ve seen lots of variations on hooki=
ng CUSTOMDRAW that end up at this line:

>substr($lParam, 48, 8, $=
clrText);

mily:"Courier New""> 

mal">The problem with this is that Win32::GUI (?) throws up an error box tha=
t says â€=9Csubstr outside of string at xenmong.pl line 172.<=
/p>

 

If I p=
ut in a print length($lParam) it shows that $lParam is 8 bytes, which is wha=
t Iâ€=99d expect after finding that lParam is a LONG via google. :p>

 

I=E2=
€™d love to try what is apparently the â€=9Cnewâ€=9D method of h=
andling CustomDraw discussed here l-win32-gui-cvscommit@lists.sourceforge.net/msg00053.html"> lor:windowtext">http://www.mail-archive.com/perl-win32-gui-c vscommit@lists.s=
ourceforge.net/msg00053.html, but I canâ€=99t find Win32::GUI=
::CustomDraw anywhere.

ont-family:"Courier New""> 

MsoNormal">What am I missing?

le=3D"color:#1F497D"> 

>Ken Cornetet 812.482.8499 p>

To err is human - to m=
oo, bovine.

"color:#1F497D"> 

order-top:solid #B5C4DF 1.0pt;padding:3.0pt 0in 0in 0in">

al"> sans-serif"">From: y:"Tahoma","sans-serif""> ounces@listserv.ActiveState.com">activeperl-bounces@listserv .ActiveState.com=
[mailto:activeperl-bounces@listserv.ActiveState.com] On Behalf Of b>Ken Cornetet
Sent: Friday, October 14, 2011 5:03 PM
To: > ctiveperl@listserv.activestate.com">activeperl@listserv.acti vestate.com<=
/a>
Subject: Change font in Win32::GUI AddListView items >

 

=3D"MsoNormal">Is it possible to change the font (bold, color,etc) when addi=
ng items to a Win32::GUI AddListView object?

rmal"> 

Iâ€=99ve tried passing=
a font object to no avail

 <=
/o:p>

"">my $fb =3D new Win32::GUI::Font(-name =3D> "Courier New", -height=
=3D> 10, -bold =3D> 0);

<=
span style=3D"font-family:"Courier New"">$lv->InsertItem(-font =3D=
> $fb, -item =3D> $i, -text =3D> ["  $s", "", "", "", "", "", "=
"]);

 

ss=3D"MsoNormal">There are the TextColor and TextBKColor methods, but they a=
ppear to be global to the whole ListView object.

soNormal"> 

Ken Cornetet 812.482.8=
499

To err is human - to moo, bovine. :p>

 

quote>

_________________________________=
______________
ActivePerl mailing list
ef=3D"mailto:ActivePerl@listserv.ActiveState.com">ActivePerl @listserv.Active=
State.com
To unsubscribe: iveState.com/mailman/mysubs"> man/mysubs">http://listserv.ActiveState.com/mailman/mysubs iv>

=

--Apple-Mail-2--869130679--

--===============0297615002==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0297615002==--